﻿' Para acceder a OleDB  
Imports System.Data.OleDb
Imports System.IO

Module Module2

    Public txtBase As String
    Public NombreFicheroJhi As String
    Public NombreDelAutor As String
    Public RutaFicheroJhi As String

    Public Sub CreaciónDeLaBaseDeDatos()


        Dim DialogSaveJhi As New SaveFileDialog()
        ' Página para ver como funciona el DialogSave: http://www.programandoen.net/blog/docs/?year=2009&month=3&day=20&title=Como-salvar-o-grabar-un-fichero-o-archivo-usando-el-SaveFileDialog

        NombreFicheroJhi = InputBox("Nombre de la aventura:", "Título del juego")
        If NombreFicheroJhi = "" Then Exit Sub
        NombreDelAutor = InputBox("Nombre del autor:", "Autor del juego")

        'Se pone como título del juego el nombre que se le dé al fichero.
        Main.txt_Título_De_La_Aventura.Text = NombreFicheroJhi
        'Se añade en el campo correspondiente el nombre del autor
        Main.txt_Autor_De_La_Aventura.Text = NombreDelAutor

        If NombreFicheroJhi = "" Then Exit Sub
        ' MsgBox("El nombre de la aventura es: " & NombreFicheroJhi)

        DialogSaveJhi.DefaultExt = "Jhi"
        DialogSaveJhi.AddExtension = True
        DialogSaveJhi.FileName = NombreFicheroJhi
        DialogSaveJhi.Filter = ("Ficheros Jhi (*.Jhi)|*.Jhi|Todos los archivos (*.*)|*.*")
        '   DirectorioInicialFicheroJhi = DialogSaveJhi.InitialDirectory
        DialogSaveJhi.ShowHelp = True
        DialogSaveJhi.Title = "Guardar Fichero Jhi"
        DialogSaveJhi.Title = "Guardar Fichero Jhi"


        'Con este trocito de código borramos el fichero, y volvemos a grabar uno.  Es como sobreescribir.
        If DialogSaveJhi.ShowDialog = DialogResult.OK Then
            RutaFicheroJhi = DialogSaveJhi.FileName
            If File.Exists(RutaFicheroJhi) Then
                File.Delete(RutaFicheroJhi)
            Else
            End If
            'Fin
            '---------------------------------------------


            'TODO: ARREGLAR PARA QUE SE ELIMINE EL FICHERO BD SI EXISTE.

            ' MsgBox("Procedimiento para genera el mdb")
            '' '' Como agregar la referencia: http://translate.google.es/translate?hl=es&langpair=en|es&u=http://www.freevbcode.com/ShowCode.asp%3FID%3D5797

            '' ''"Muestra cómo crear una base de datos Access 2000 y añadir tablas, campos, índices utilizando ADOX. Don't forget No se olvide
            '' ''a reference to ADOX (Microsoft ADO Ext. 2.x for DDL and Security) "Una referencia a ADOX (Microsoft ADO Ext.. 2.x for DDL and Security)
            '' ''Shows how to create an Access 2000 database and append tables, fields, indexes using ADOX. Don't forget
            '' ''a reference to ADOX (Microsoft ADO Ext. 2.x for DDL and Security)
            '' '' Ver web: http://www.vbforums.com/archive/index.php/t-251384.html


            '' '' CREAR LA BASE DE DATOS

            ' Para crar la BD ver página. http://www.xtremevbtalk.com/archive/index.php/t-277583.html

            Dim ADOXCatalog As New ADOX.Catalog
            Dim ADOXTable As New ADOX.Table
            Dim ADODBConn As New ADODB.Connection
            Dim oConnect As String
            Dim stablenameInicio As String
            Dim stablenameObjetos As String = ""
            'Setup the connection string
            oConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & RutaFicheroJhi & "';"
            ' Try creating the database
            Try
                'Create the database
                ADOXCatalog.Create(oConnect)
            Catch ex As System.Runtime.InteropServices.COMException
            Catch ex As Exception
                'Show error message and return failure
                MsgBox(ex.Message & vbCrLf & ex.StackTrace)


            End Try



            ''Define connection string
            'oConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & RutaFicheroJhi & "';"
            'Try connecting and create the table
            Try

                stablenameInicio = "INICIO"

                ADODBConn.Open(oConnect)
                ADOXCatalog.ActiveConnection = ADODBConn
                ADOXTable.Name = stablenameInicio
                ADOXTable.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                ADOXTable.Columns("Id").ParentCatalog = ADOXCatalog
                ADOXTable.Columns("Id").Properties("AutoIncrement").Value = True
                ADOXTable.Columns.Append("NombreDelJuego", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("NombreDelJuego").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("Autor", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("Autor").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("Librerias", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("Librerias").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("TramaDeLaHistoria", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                ADOXTable.Columns("TramaDeLaHistoria").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("Genero", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("Genero").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("VersionJuego", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("VersionJuego").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("AñoCreacion", ADOX.DataTypeEnum.adVarWChar, 4)
                ADOXTable.Columns("AñoCreacion").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("DescripcionDeLaHistoria", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                ADOXTable.Columns("DescripcionDeLaHistoria").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("Gráfico", ADOX.DataTypeEnum.adVarWChar, 255)
                ADOXTable.Columns("Gráfico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("RutaDelGráfico", ADOX.DataTypeEnum.adVarWChar, 255)
                ADOXTable.Columns("RutaDelGráfico").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXTable.Columns.Append("DescLocalAbrev", ADOX.DataTypeEnum.adBoolean)
                ADOXTable.Columns.Append("DescLocalCompleta", ADOX.DataTypeEnum.adBoolean)
                ADOXTable.Columns.Append("MarcadorPuntos", ADOX.DataTypeEnum.adBoolean)
                ADOXTable.Columns.Append("PrevencionUndo", ADOX.DataTypeEnum.adBoolean)
                ADOXTable.Columns.Append("Chk_BannerText", ADOX.DataTypeEnum.adBoolean)

                ADOXTable.Columns.Append("Txt_BannerText", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                ADOXTable.Columns("Txt_BannerText").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("DescripcionJugador", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                ADOXTable.Columns("DescripcionJugador").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("StatusLineLeft1", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineLeft1").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("StatusLineLeft2", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineLeft2").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("StatusLineLeft3", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineLeft3").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXTable.Columns.Append("StatusLineRight1", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineRight1").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("StatusLineRight2", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineRight2").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXTable.Columns.Append("StatusLineRight3", ADOX.DataTypeEnum.adVarWChar, 50)
                ADOXTable.Columns("StatusLineRight3").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ' Estos datos son para ver que dipos de datos admite la BD.
                ' NUMERO: ADOXTable.Columns.Append("Weather", ADOX.DataTypeEnum.adInteger)  
                ' TEXTO DE 50: ADOXTable.Columns.Append("Temperature", ADOX.DataTypeEnum.adVarWChar, 50)
                ' MEMO: ADOXTable.Columns.Append("JournalText", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                ' OBJETO OLE: ADOXTable.Columns.Append("Video", ADOX.DataTypeEnum.adLongVarBinary)
                ADOXCatalog.Tables.Append(ADOXTable)

                ' SACADO DE: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/179-crear-base-dato-adox.htm#1



                ' PARA AGREGAR LA TABLA LOCALIDADES.
                Dim Adox_TablaLocalidades As ADOX.Table
                Adox_TablaLocalidades = New ADOX.Table
                With Adox_TablaLocalidades
                    .Name = "LOCALIDADES"
                End With

                Adox_TablaLocalidades.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TablaLocalidades.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TablaLocalidades.Columns.Append("NombreLocalidad", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaLocalidades.Columns("NombreLocalidad").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("NombreImpreso", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaLocalidades.Columns("NombreImpreso").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("Oscura", ADOX.DataTypeEnum.adBoolean)
                Adox_TablaLocalidades.Columns.Append("Puerta", ADOX.DataTypeEnum.adBoolean)
                Adox_TablaLocalidades.Columns.Append("No_Aperturable", ADOX.DataTypeEnum.adBoolean)
                Adox_TablaLocalidades.Columns.Append("Con_Cerrojo", ADOX.DataTypeEnum.adBoolean)
                Adox_TablaLocalidades.Columns.Append("Abierta", ADOX.DataTypeEnum.adBoolean)
                Adox_TablaLocalidades.Columns.Append("Puesto_El_Cerrojo", ADOX.DataTypeEnum.adBoolean)

                Adox_TablaLocalidades.Columns.Append("Descripción_Inicial", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("Descripción_Inicial").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("Descripción_Una_Vez_Visitada", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("Descripción_Una_Vez_Visitada").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("Gráfico", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TablaLocalidades.Columns("Gráfico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("RutaDelGráfico", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TablaLocalidades.Columns("RutaDelGráfico").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("NW", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("NW").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("N", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("N").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("NE", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("NE").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("W", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("W").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("E", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("E").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("SW", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("SW").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("S", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("S").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("SE", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("SE").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("Subir", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("Subir").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("Bajar", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("Bajar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("Entrar", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("Entrar").Attributes = ADOX.ColumnAttributesEnum.adColNullable
                Adox_TablaLocalidades.Columns.Append("Salir", ADOX.DataTypeEnum.adInteger)
                Adox_TablaLocalidades.Columns("Salir").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadNW", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadNW").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadN", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadN").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadNE", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadNE").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("InsteadW", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadW").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadE", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadE").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("InsteadSW", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadSW").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadS", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadS").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadSE", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadSE").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadEntrar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadEntrar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadSalir", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadSalir").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TablaLocalidades.Columns.Append("InsteadSubir", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadSubir").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaLocalidades.Columns.Append("InsteadBajar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaLocalidades.Columns("InsteadBajar").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(Adox_TablaLocalidades)


                ' PARA AGREGAR LA TABLA OBJETOS.
                Dim Adox_Tabla As ADOX.Table
                Adox_Tabla = New ADOX.Table
                With Adox_Tabla
                    .Name = "OBJETOS"
                End With

                Adox_Tabla.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_Tabla.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_Tabla.Columns("Id").Properties("AutoIncrement").Value = True
                Adox_Tabla.Columns.Append("Nombre", ADOX.DataTypeEnum.adVarWChar, 50)

                Adox_Tabla.Columns.Append("Articulo", ADOX.DataTypeEnum.adVarWChar, 10)
                Adox_Tabla.Columns("Articulo").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("NombreImpreso", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_Tabla.Columns("NombreImpreso").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("AparienciaInicial", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_Tabla.Columns("AparienciaInicial").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("DescripcionInicial", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("DescripcionInicial").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("DescripcionUnaVezExaminado", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("DescripcionUnaVezExaminado").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                'TODO: Esto solo es informativo. En los campos booleanos no se pone el ADCOLNULLABLE
                Adox_Tabla.Columns.Append("LocalizacionObjeto", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_Tabla.Columns("LocalizacionObjeto").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_Tabla.Columns.Append("Femenino", ADOX.DataTypeEnum.adBoolean, 0)
                ' Adox_Tabla.Columns("Femenino").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("GráficoObjeto", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_Tabla.Columns("GráficoObjeto").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("RutaGráficoObjeto", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_Tabla.Columns("RutaGráficoObjeto").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("LlevadoAlInicio", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("LlevadoAlInicio").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Llave", ADOX.DataTypeEnum.adBoolean, 0)

                Adox_Tabla.Columns.Append("Puerta", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_Tabla.Columns("Puerta").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Contenedor", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Contenedor").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Aperturable", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Aperturable").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Cerrado", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Cerrado").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("CerradoConLlave", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("CerradoConLlave").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("CapacidadDeCarga", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("CapacidadDeCarga").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("NumeroCapacidadDeCarga", ADOX.DataTypeEnum.adInteger, 3)
                Adox_Tabla.Columns("NumeroCapacidadDeCarga").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Transparente", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Transparente").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Luminoso", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Luminoso").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("InterruptorON", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("InterruptorON").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("InterruptorOFF", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("InterruptorOFF").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Ubicuo", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Ubicuo").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("EnTodasPartes", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("EnTodasPartes").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Comestible", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Comestible").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Entrable", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Entrable").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("LlevablePuesto", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("AparienciaInicial").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Escenario", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Escenario").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Empujable", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Empujable").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("FijoEnUnSitio", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("FijoEnUnSitio").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Portable", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Portable").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Cogido", ADOX.DataTypeEnum.adBoolean, 0)
                'Adox_Tabla.Columns("Cogido").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ' INSTEAD PARA LOS OBJETOS
                Adox_Tabla.Columns.Append("Objeto_Instead_Coger", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Coger").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Dejar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Dejar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Comer", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Comer").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Beber", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Beber").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Mirar_Debajo", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Mirar_Debajo").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Buscar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Buscar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Encender", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Encender").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Apagar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Apagar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Abrir", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Abrir").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Cerrar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Cerrar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Llevar_Puesto", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Llevar_Puesto").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Quitarte", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Quitarte").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Romper", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Romper").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Besar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Besar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Tocar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Tocar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Agitar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Agitar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Tirar_de", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Tirar_de").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Empujar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Empujar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Girar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Girar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Retorcer", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Retorcer").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Quemar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Quemar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Oler", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Oler").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Saborear", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Saborear").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Comprar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Comprar").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_Tabla.Columns.Append("Objeto_Instead_Escuchar", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_Tabla.Columns("Objeto_Instead_Escuchar").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(Adox_Tabla)


                ' PARA AGREGAR LA TABLA SINONIMOS
                Dim Adox_TablaSinonimos As ADOX.Table
                Adox_TablaSinonimos = New ADOX.Table
                With Adox_TablaSinonimos
                    .Name = "SINONIMOS_OBJETOS"
                End With

                Adox_TablaSinonimos.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TablaSinonimos.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TablaSinonimos.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TablaSinonimos.Columns.Append("Objeto", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaSinonimos.Columns("Objeto").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaSinonimos.Columns.Append("Sinonimo", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaSinonimos.Columns("Sinonimo").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXCatalog.Tables.Append(Adox_TablaSinonimos)

                ' PARA AGREGAR LA TABLA PSIS
                Dim Adox_TablaPSIS As ADOX.Table
                Adox_TablaPSIS = New ADOX.Table
                With Adox_TablaPSIS
                    .Name = "PSIS"
                End With

                Adox_TablaPSIS.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TablaPSIS.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TablaPSIS.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TablaPSIS.Columns.Append("NombrePSI", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaPSIS.Columns("NombrePSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("TipoPSI", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaPSIS.Columns("TipoPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("LocalizacionPSI", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaPSIS.Columns("LocalizacionPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("NombreImpresoPSI", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TablaPSIS.Columns("NombreImpresoPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("AparienciaInicialPSI", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaPSIS.Columns("AparienciaInicialPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("DescripcionInicialPSI", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaPSIS.Columns("DescripcionInicialPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("DescripcionPSIunavezexaminado", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TablaPSIS.Columns("DescripcionPSIunavezexaminado").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("GraficoPSI", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TablaPSIS.Columns("GraficoPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaPSIS.Columns.Append("RutaGraficoPSI", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TablaPSIS.Columns("RutaGraficoPSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXCatalog.Tables.Append(Adox_TablaPSIS)


                ' PARA AGREGAR LA TABLA SINONIMOSPSI
                Dim Adox_TablaSinonimosPSI As ADOX.Table
                Adox_TablaSinonimosPSI = New ADOX.Table
                With Adox_TablaSinonimosPSI
                    .Name = "SINONIMOS_PSI"
                End With

                Adox_TablaSinonimosPSI.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TablaSinonimosPSI.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TablaSinonimosPSI.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TablaSinonimosPSI.Columns.Append("PSI", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaSinonimosPSI.Columns("PSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TablaSinonimosPSI.Columns.Append("Sinonimo", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TablaSinonimosPSI.Columns("Sinonimo").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXCatalog.Tables.Append(Adox_TablaSinonimosPSI)


                ' PARA AGREGAR LA TABLA PSIS_TOPICOS_TABULADOS
                Dim Adox_TABLA_Psis_Topicos_Tabulados As ADOX.Table
                Adox_TABLA_Psis_Topicos_Tabulados = New ADOX.Table
                With Adox_TABLA_Psis_Topicos_Tabulados
                    .Name = "PSIS_TOPICOS_TABULADOS"
                End With

                Adox_TABLA_Psis_Topicos_Tabulados.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TABLA_Psis_Topicos_Tabulados.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TABLA_Psis_Topicos_Tabulados.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TABLA_Psis_Topicos_Tabulados.Columns.Append("PSI", ADOX.DataTypeEnum.adVarWChar, 50)
                Adox_TABLA_Psis_Topicos_Tabulados.Columns("PSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TABLA_Psis_Topicos_Tabulados.Columns.Append("Topico", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_Psis_Topicos_Tabulados.Columns("Topico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TABLA_Psis_Topicos_Tabulados.Columns.Append("Respuesta", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                Adox_TABLA_Psis_Topicos_Tabulados.Columns("Respuesta").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXCatalog.Tables.Append(Adox_TABLA_Psis_Topicos_Tabulados)



                ' PARA AGREGAR LA TABLA PSIS_SINONIMOS_TOPICOS
                Dim Adox_TABLA_Psis_Sinonimos_Topicos As ADOX.Table
                Adox_TABLA_Psis_Sinonimos_Topicos = New ADOX.Table
                With Adox_TABLA_Psis_Sinonimos_Topicos
                    .Name = "PSIS_SINONIMOS_TOPICOS"
                End With

                Adox_TABLA_Psis_Sinonimos_Topicos.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TABLA_Psis_Sinonimos_Topicos.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TABLA_Psis_Sinonimos_Topicos.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TABLA_Psis_Sinonimos_Topicos.Columns.Append("PSI", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_Psis_Sinonimos_Topicos.Columns("PSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TABLA_Psis_Sinonimos_Topicos.Columns.Append("Topico", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_Psis_Sinonimos_Topicos.Columns("Topico").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                Adox_TABLA_Psis_Sinonimos_Topicos.Columns.Append("Sinonimo", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_Psis_Sinonimos_Topicos.Columns("Topico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                ADOXCatalog.Tables.Append(Adox_TABLA_Psis_Sinonimos_Topicos)



                ' PARA AGREGAR LA TABLA PSIS_PRE_RESPUESTAS_ALEATORIAS
                Dim Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS As ADOX.Table
                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS = New ADOX.Table
                With Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS
                    .Name = "PSIS_PRE_RESPUESTAS_ALEATORIAS"
                End With

                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns("Id").ParentCatalog = ADOXCatalog
                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns("Id").Properties("AutoIncrement").Value = True

                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns.Append("PSI", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns("PSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns.Append("PreRespuestaAleatoria", ADOX.DataTypeEnum.adVarWChar, 255)
                Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS.Columns("PreRespuestaAleatoria").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(Adox_TABLA_PSIS_PRE_RESPUESTAS_ALEATORIAS)


                ' PARA AGREGAR LA TABLA PSIS_RESPUESTAS_ALEATORIAS
                Dim PSIS_RESPUESTAS_ALEATORIAS As ADOX.Table
                PSIS_RESPUESTAS_ALEATORIAS = New ADOX.Table
                With PSIS_RESPUESTAS_ALEATORIAS
                    .Name = "PSIS_RESPUESTAS_ALEATORIAS"
                End With

                PSIS_RESPUESTAS_ALEATORIAS.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                PSIS_RESPUESTAS_ALEATORIAS.Columns("Id").ParentCatalog = ADOXCatalog
                PSIS_RESPUESTAS_ALEATORIAS.Columns("Id").Properties("AutoIncrement").Value = True

                PSIS_RESPUESTAS_ALEATORIAS.Columns.Append("PSI", ADOX.DataTypeEnum.adVarWChar, 255)
                PSIS_RESPUESTAS_ALEATORIAS.Columns("PSI").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                PSIS_RESPUESTAS_ALEATORIAS.Columns.Append("RespuestaAleatoria", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                PSIS_RESPUESTAS_ALEATORIAS.Columns("RespuestaAleatoria").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(PSIS_RESPUESTAS_ALEATORIAS)

                ' PARA AGREGAR LA TABLA PSIS_RESPUESTAS_PREDEFINIDAS
                Dim PSIS_RESPUESTAS_PREDEFINIDAS As ADOX.Table
                PSIS_RESPUESTAS_PREDEFINIDAS = New ADOX.Table
                With PSIS_RESPUESTAS_PREDEFINIDAS
                    .Name = "PSIS_RESPUESTAS_PREDEFINIDAS"
                End With

                PSIS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                PSIS_RESPUESTAS_PREDEFINIDAS.Columns("Id").ParentCatalog = ADOXCatalog
                PSIS_RESPUESTAS_PREDEFINIDAS.Columns("Id").Properties("AutoIncrement").Value = True

                PSIS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Categoria", ADOX.DataTypeEnum.adVarWChar, 255)
                PSIS_RESPUESTAS_PREDEFINIDAS.Columns("Categoria").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                PSIS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Topico", ADOX.DataTypeEnum.adVarWChar, 255)
                PSIS_RESPUESTAS_PREDEFINIDAS.Columns("Topico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                PSIS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Respuesta", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                PSIS_RESPUESTAS_PREDEFINIDAS.Columns("Respuesta").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(PSIS_RESPUESTAS_PREDEFINIDAS)



                ' PARA AGREGAR LA TABLA PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS
                Dim PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS As ADOX.Table
                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS = New ADOX.Table
                With PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS
                    .Name = "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS"
                End With

                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)
                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns("Id").ParentCatalog = ADOXCatalog
                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns("Id").Properties("AutoIncrement").Value = True

                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Topico", ADOX.DataTypeEnum.adVarWChar, 255)
                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns("Topico").Attributes = ADOX.ColumnAttributesEnum.adColNullable

                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns.Append("Sinonimo", ADOX.DataTypeEnum.adLongVarWChar, 65535)
                PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.Columns("Sinonimo").Attributes = ADOX.ColumnAttributesEnum.adColNullable


                ADOXCatalog.Tables.Append(PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS)
                

            Catch ex As System.Runtime.InteropServices.COMException
            Catch ex As Exception
                'Show error message and return failure
                MsgBox(ex.Message & vbCrLf & ex.StackTrace)

            Finally
                'Dispose the object
                ADODBConn.Close()
                ADODBConn = Nothing
                ADOXCatalog.ActiveConnection = Nothing
                ADOXCatalog = Nothing
                ADOXTable = Nothing
            End Try
            Main.NuevoFicheroJhiToolStripMenuItem.Visible = False
            Main.TabControl1.Visible = True

            'ocultar controles
            OcultarControlesObjetos()
            OcultarControlesLocalidades()
            OcultarControlesPSIs()

            txtBase = RutaFicheroJhi


            ' ==============================================================================================
            ' COMENTARIOS. Procedimiento encargado de grabar LAS RESPUESTAS PREDEFINIDAS EN LA B.D.
            ' ==============================================================================================

            'Se establece la conexión con la base de datos.
            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & RutaFicheroJhi
            Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            ODbConn.Open()

            Dim Command As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Saludos','Buenos días','Sí. Hoy parece un buen día')", ODbConn)
            Dim Command1 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Saludos','Buenas tardes','Sí. Parece que hace buena tarde')", ODbConn)
            Dim Command2 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Saludos','Buenas noches','Sí. Parece que hace buena noche')", ODbConn)
            Dim Command3 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Saludos','Hola','Hola amigo. ¿Qué hay?')", ODbConn)
            Dim Command4 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Nombre','Nombre','Me llamo como me pusieron mis padres')", ODbConn)
            Dim Command5 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Despedida','Adiós','Pues adiós')", ODbConn)
            Dim Command6 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Ayuda','Ayuda','Lo siento, no tengo suelto')", ODbConn)
            Dim Command7 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Ayuda','Gracias','No hay de qué')", ODbConn)
            Dim Command8 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Afectos','Te quiero','Pues yo a tí, no')", ODbConn)
            Dim Command9 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Afectos','Te odio','Pues yo a tí, también')", ODbConn)
            Dim Command10 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Boludo','Nunca he sabido que significa boludo')", ODbConn)
            Dim Command11 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Boluda','Nunca he sabido que significa boluda')", ODbConn)
            Dim Command12 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Pelotudo','Si eso significa que las tengo muy grandes. Sí, soy un pelotudo')", ODbConn)
            Dim Command13 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Pelotuda','Si eso significa que las tengo muy grandes. Sí, soy un pelotuda')", ODbConn)
            Dim Command14 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Cabrón','¿Lo dices por mi cornamenta? ¿A que es más grande que las del Minotauro?')", ODbConn)
            Dim Command15 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Cabrona','¿Lo dices por mi cornamenta? ¿A que es más grande que las del Minotauro?')", ODbConn)
            Dim Command16 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Joder','Eso.. eso.. Venga vamos, que me encanta')", ODbConn)
            Dim Command17 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Ostia','Aclaremos: ¿La sagrada o la otra?')", ODbConn)
            Dim Command18 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Leche','¿A qué no eres capaz de decir diez marcas de leche con el dedo metido en la nariz?')", ODbConn)
            Dim Command19 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','A tomar por culo','¿Puedo elegir a George Clooney para que sea el afortunado?')", ODbConn)
            Dim Command20 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Hijo puta','Bueno, no todas las madres han podido ganarse la vida de otra manera')", ODbConn)
            Dim Command21 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Hija puta','Y creo que seguiré los pasos de mi mamá')", ODbConn)
            Dim Command22 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Maricón','¿En qué lo has notado? ¿En mi faldita rosa?')", ODbConn)
            Dim Command23 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Cerdo','A todo cerdo le llega su San Benito... ¿o era su San Fermín?')", ODbConn)
            Dim Command24 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Desgraciado','Mucho. Sí')", ODbConn)
            Dim Command25 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Desgraciada','Mucho. Sí')", ODbConn)
            Dim Command26 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Imbécil','Solo cuando estás delante')", ODbConn)
            Dim Command27 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Estúpido','Es que me provocas ese estado anímico')", ODbConn)
            Dim Command28 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Tonto','Según la mamá de Fooorress Guuummp... tonto es el que hace tonterías')", ODbConn)
            Dim Command29 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Subnormal','Bueno, un poco por debajo de la media... tampoco es para tanto')", ODbConn)
            Dim Command30 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Cornudo','¿Lo dices por estos pequeños cuernecillos tipo Bambi?')", ODbConn)
            Dim Command31 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_RESPUESTAS_PREDEFINIDAS(Categoria,topico,respuesta)" & "Values('Insultos','Cornuda','¿Lo dices por estos pequeños cuernecillos tipo Bambi?')", ODbConn)



            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader1 As OleDbDataReader = Command1.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader2 As OleDbDataReader = Command2.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader3 As OleDbDataReader = Command3.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader4 As OleDbDataReader = Command4.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader5 As OleDbDataReader = Command5.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader6 As OleDbDataReader = Command6.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader7 As OleDbDataReader = Command7.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader8 As OleDbDataReader = Command8.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader9 As OleDbDataReader = Command9.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader10 As OleDbDataReader = Command10.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader11 As OleDbDataReader = Command11.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader12 As OleDbDataReader = Command12.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader13 As OleDbDataReader = Command13.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader14 As OleDbDataReader = Command14.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader15 As OleDbDataReader = Command15.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader16 As OleDbDataReader = Command16.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader17 As OleDbDataReader = Command17.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader18 As OleDbDataReader = Command18.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader19 As OleDbDataReader = Command19.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader20 As OleDbDataReader = Command20.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader21 As OleDbDataReader = Command21.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader22 As OleDbDataReader = Command22.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader23 As OleDbDataReader = Command23.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader24 As OleDbDataReader = Command24.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader25 As OleDbDataReader = Command25.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader26 As OleDbDataReader = Command26.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader27 As OleDbDataReader = Command27.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader28 As OleDbDataReader = Command28.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader29 As OleDbDataReader = Command29.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader30 As OleDbDataReader = Command30.ExecuteReader(CommandBehavior.CloseConnection)
            Dim DataReader31 As OleDbDataReader = Command31.ExecuteReader(CommandBehavior.CloseConnection)



            Dim SIN_Command_00 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Buenos días','Buenos dias')", ODbConn)
            Dim SIN_Command_01 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hola','Qué tal')", ODbConn)
            Dim SIN_Command_02 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hola','Que tal')", ODbConn)
            Dim SIN_Command_03 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hola','Qué hay')", ODbConn)
            Dim SIN_Command_04 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hola','Que hay')", ODbConn)
            Dim SIN_Command_09 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Nombre','Cuál es tu nombre')", ODbConn)
            Dim SIN_Command_10 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Nombre','Cual es tu nombre')", ODbConn)
            Dim SIN_Command_11 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Nombre','Cómo te llamas')", ODbConn)
            Dim SIN_Command_12 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Nombre','Como te llamas')", ODbConn)
            Dim SIN_Command_17 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Adios')", ODbConn)
            Dim SIN_Command_18 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Hasta la vista')", ODbConn)
            Dim SIN_Command_19 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Hasta luego')", ODbConn)
            Dim SIN_Command_20 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Hasta siempre')", ODbConn)
            Dim SIN_Command_21 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Nos vemos')", ODbConn)
            Dim SIN_Command_22 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Ciao')", ODbConn)
            Dim SIN_Command_23 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Arrivederci')", ODbConn)
            Dim SIN_Command_24 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Adiós','Au revoir')", ODbConn)
            Dim SIN_Command_25 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Ayúdame')", ODbConn)
            Dim SIN_Command_26 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Ayudame')", ODbConn)
            Dim SIN_Command_27 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Help')", ODbConn)
            Dim SIN_Command_28 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Ayúdame por favor')", ODbConn)
            Dim SIN_Command_29 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Ayuda por favor')", ODbConn)
            'Dim SIN_Command_30 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Ayuda, por favor')", ODbConn)
            'Dim SIN_Command_31 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor, ayúdame')", ODbConn)
            'Dim SIN_Command_32 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor, ayudame')", ODbConn)
            'Dim SIN_Command_33 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor, ayuda')", ODbConn)
            Dim SIN_Command_34 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor ayudame')", ODbConn)
            Dim SIN_Command_35 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor ayúdame')", ODbConn)
            Dim SIN_Command_36 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Por favor ayuda')", ODbConn)
            Dim SIN_Command_54 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Pista')", ODbConn)
            Dim SIN_Command_55 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ayuda','Pistas')", ODbConn)
            Dim SIN_Command_37 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Te quiero','Te amo')", ODbConn)
            Dim SIN_Command_56 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Te odio','Ojalá te mueras.')", ODbConn)
            Dim SIN_Command_57 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Te odio','Ojala te mueras.')", ODbConn)
            Dim SIN_Command_39 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Cabrón','Cabron')", ODbConn)
            Dim SIN_Command_40 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Ostia','Ostias')", ODbConn)
            Dim SIN_Command_41 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Leche','Leches')", ODbConn)
            Dim SIN_Command_42 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('A tomar por culo','Vete a tomar por culo')", ODbConn)
            Dim SIN_Command_43 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('A tomar por culo','Tomar por culo')", ODbConn)
            Dim SIN_Command_44 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hijo puta','Hijo de puta')", ODbConn)
            Dim SIN_Command_45 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Hija puta','Hija de puta')", ODbConn)
            Dim SIN_Command_46 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Maricon')", ODbConn)
            Dim SIN_Command_47 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Maricona')", ODbConn)
            Dim SIN_Command_48 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Gay')", ODbConn)
            Dim SIN_Command_49 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Afeminado')", ODbConn)
            Dim SIN_Command_50 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Mariposón')", ODbConn)
            Dim SIN_Command_51 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Maricón','Mariposon')", ODbConn)
            Dim SIN_Command_52 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Imbécil','Imbecil')", ODbConn)
            Dim SIN_Command_53 As New OleDb.OleDbCommand("INSERT INTO " & "PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS(topico,sinonimo)" & "Values('Estúpido','Estupido')", ODbConn)

            Dim SIN_DataReader_00 As OleDbDataReader = SIN_Command_00.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_01 As OleDbDataReader = SIN_Command_01.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_02 As OleDbDataReader = SIN_Command_02.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_03 As OleDbDataReader = SIN_Command_03.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_04 As OleDbDataReader = SIN_Command_04.ExecuteReader(CommandBehavior.CloseConnection)
            '  Dim SIN_DataReader_05 As OleDbDataReader = SIN_Command_05.ExecuteReader(CommandBehavior.CloseConnection)
            '  Dim SIN_DataReader_06 As OleDbDataReader = SIN_Command_06.ExecuteReader(CommandBehavior.CloseConnection)
            '  Dim SIN_DataReader_07 As OleDbDataReader = SIN_Command_07.ExecuteReader(CommandBehavior.CloseConnection)
            '  Dim SIN_DataReader_08 As OleDbDataReader = SIN_Command_08.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_09 As OleDbDataReader = SIN_Command_09.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_10 As OleDbDataReader = SIN_Command_10.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_11 As OleDbDataReader = SIN_Command_11.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_12 As OleDbDataReader = SIN_Command_12.ExecuteReader(CommandBehavior.CloseConnection)
            'Dim SIN_DataReader_13 As OleDbDataReader = SIN_Command_13.ExecuteReader(CommandBehavior.CloseConnection)
            'Dim SIN_DataReader_14 As OleDbDataReader = SIN_Command_14.ExecuteReader(CommandBehavior.CloseConnection)
            'Dim SIN_DataReader_15 As OleDbDataReader = SIN_Command_15.ExecuteReader(CommandBehavior.CloseConnection)
            'Dim SIN_DataReader_16 As OleDbDataReader = SIN_Command_16.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_17 As OleDbDataReader = SIN_Command_17.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_18 As OleDbDataReader = SIN_Command_18.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_19 As OleDbDataReader = SIN_Command_19.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_20 As OleDbDataReader = SIN_Command_20.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_21 As OleDbDataReader = SIN_Command_21.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_22 As OleDbDataReader = SIN_Command_22.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_23 As OleDbDataReader = SIN_Command_23.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_24 As OleDbDataReader = SIN_Command_24.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_25 As OleDbDataReader = SIN_Command_25.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_26 As OleDbDataReader = SIN_Command_26.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_27 As OleDbDataReader = SIN_Command_27.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_28 As OleDbDataReader = SIN_Command_28.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_29 As OleDbDataReader = SIN_Command_29.ExecuteReader(CommandBehavior.CloseConnection)
            '   Dim SIN_DataReader_30 As OleDbDataReader = SIN_Command_30.ExecuteReader(CommandBehavior.CloseConnection)
            '   Dim SIN_DataReader_31 As OleDbDataReader = SIN_Command_31.ExecuteReader(CommandBehavior.CloseConnection)
            '   Dim SIN_DataReader_32 As OleDbDataReader = SIN_Command_32.ExecuteReader(CommandBehavior.CloseConnection)
            '   Dim SIN_DataReader_33 As OleDbDataReader = SIN_Command_33.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_34 As OleDbDataReader = SIN_Command_34.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_35 As OleDbDataReader = SIN_Command_35.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_36 As OleDbDataReader = SIN_Command_36.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_37 As OleDbDataReader = SIN_Command_37.ExecuteReader(CommandBehavior.CloseConnection)
            ' Dim SIN_DataReader_38 As OleDbDataReader = SIN_Command_38.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_39 As OleDbDataReader = SIN_Command_39.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_40 As OleDbDataReader = SIN_Command_40.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_41 As OleDbDataReader = SIN_Command_41.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_42 As OleDbDataReader = SIN_Command_42.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_43 As OleDbDataReader = SIN_Command_43.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_44 As OleDbDataReader = SIN_Command_44.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_45 As OleDbDataReader = SIN_Command_45.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_46 As OleDbDataReader = SIN_Command_46.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_47 As OleDbDataReader = SIN_Command_47.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_48 As OleDbDataReader = SIN_Command_48.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_49 As OleDbDataReader = SIN_Command_49.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_50 As OleDbDataReader = SIN_Command_50.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_51 As OleDbDataReader = SIN_Command_51.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_52 As OleDbDataReader = SIN_Command_52.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_53 As OleDbDataReader = SIN_Command_53.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_54 As OleDbDataReader = SIN_Command_54.ExecuteReader(CommandBehavior.CloseConnection)
            Dim SIN_DataReader_55 As OleDbDataReader = SIN_Command_55.ExecuteReader(CommandBehavior.CloseConnection)


            'Libera memoria

            Command.Dispose()
            Command1.Dispose()
            Command2.Dispose()
            Command3.Dispose()
            Command4.Dispose()
            Command5.Dispose()
            Command6.Dispose()
            Command7.Dispose()
            Command8.Dispose()
            Command9.Dispose()
            Command10.Dispose()
            Command11.Dispose()
            Command12.Dispose()
            Command13.Dispose()
            Command14.Dispose()
            Command15.Dispose()
            Command16.Dispose()
            Command17.Dispose()
            Command18.Dispose()
            Command19.Dispose()
            Command20.Dispose()
            Command21.Dispose()
            Command22.Dispose()
            Command23.Dispose()
            Command24.Dispose()
            Command25.Dispose()
            Command26.Dispose()
            Command27.Dispose()
            Command28.Dispose()
            Command29.Dispose()
            Command30.Dispose()
            Command31.Dispose()

            SIN_Command_00.Dispose()
            SIN_Command_01.Dispose()
            SIN_Command_02.Dispose()
            SIN_Command_03.Dispose()
            SIN_Command_04.Dispose()
            '  SIN_Command_05.Dispose()
            '  SIN_Command_06.Dispose()
            '  SIN_Command_07.Dispose()
            '  SIN_Command_08.Dispose()
            SIN_Command_09.Dispose()
            SIN_Command_10.Dispose()
            SIN_Command_11.Dispose()
            SIN_Command_12.Dispose()
            ' SIN_Command_13.Dispose()
            ' SIN_Command_14.Dispose()
            ' SIN_Command_15.Dispose()
            ' SIN_Command_16.Dispose()
            SIN_Command_17.Dispose()
            SIN_Command_18.Dispose()
            SIN_Command_19.Dispose()
            SIN_Command_20.Dispose()
            SIN_Command_21.Dispose()
            SIN_Command_22.Dispose()
            SIN_Command_23.Dispose()
            SIN_Command_24.Dispose()
            SIN_Command_25.Dispose()
            SIN_Command_26.Dispose()
            SIN_Command_27.Dispose()
            SIN_Command_28.Dispose()
            SIN_Command_29.Dispose()
            '  SIN_Command_30.Dispose()
            '  SIN_Command_31.Dispose()
            '  SIN_Command_32.Dispose()
            '  SIN_Command_33.Dispose()
            SIN_Command_34.Dispose()
            SIN_Command_35.Dispose()
            SIN_Command_36.Dispose()
            SIN_Command_37.Dispose()
            'IN_Command_38.Dispose()
            SIN_Command_39.Dispose()
            SIN_Command_40.Dispose()
            SIN_Command_41.Dispose()
            SIN_Command_42.Dispose()
            SIN_Command_43.Dispose()
            SIN_Command_44.Dispose()
            SIN_Command_45.Dispose()
            SIN_Command_46.Dispose()
            SIN_Command_47.Dispose()
            SIN_Command_48.Dispose()
            SIN_Command_49.Dispose()
            SIN_Command_50.Dispose()
            SIN_Command_51.Dispose()
            SIN_Command_52.Dispose()
            SIN_Command_53.Dispose()
            SIN_Command_54.Dispose()
            SIN_Command_55.Dispose()
            SIN_Command_56.Dispose()
            SIN_Command_57.Dispose()

            ' ==============================================================================================
            ' COMENTARIOS. Procedimiento encargado de grabar el TÍTULO DE LA AVENTURA EN LA B.D.
            ' ==============================================================================================

            'Se establece la conexión con la base de datos.
            'Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & RutaFicheroJhi
            'Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            'ODbConn.Open()


            'Se crea un objeto Command 
            'Se ejecuta una consulta de actualización que graba el Nombre del Juego
            Dim LACommandTitulo As New OleDb.OleDbCommand("INSERT INTO " & "INICIO(NombreDelJuego,Autor)" & "Values('" & NombreFicheroJhi & "','" & NombreDelAutor & "')", ODbConn)
            Dim LADataReader As OleDbDataReader = LACommandTitulo.ExecuteReader(CommandBehavior.CloseConnection)
            'Libera memoria
            LACommandTitulo.Dispose()
            Command.Dispose()
            ODbConn.Close()

            CargarTreeViewRespuestasPredefinidas()


        Else
            Exit Sub
        End If
    End Sub
    Public Sub CargarLaBaseDeDatos()

        ' ABRIR FICHERO - CARGAR BASE DE DATOS EN JHINFORM7
        Dim OpenFileDialogJhi As New OpenFileDialog

        OpenFileDialogJhi.DefaultExt = ".Jhi"
        OpenFileDialogJhi.Filter = "Archivos Jhi (*.Jhi)|*.Jhi|Todos los archivos (*.*)|*.*)"
        OpenFileDialogJhi.InitialDirectory = Application.StartupPath
        OpenFileDialogJhi.Title = "Abrir Fichero Jhi"

        If OpenFileDialogJhi.ShowDialog = DialogResult.OK Then
            txtBase = OpenFileDialogJhi.FileName
        Else
            Exit Sub
        End If

        If System.IO.File.Exists(txtBase) = False Then
            MsgBox("Se ha producido un error al abrir el fichero")
            Exit Sub
        End If

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        ' Cargar la pantalla INICIO
        Dim LstInicioCommand As New OleDb.OleDbCommand("SELECT * FROM INICIO", ODbConn)
        Dim LstInicioDataReader As OleDb.OleDbDataReader = LstInicioCommand.ExecuteReader(CommandBehavior.CloseConnection)
        LstInicioDataReader.Read()

        Main.txt_Título_De_La_Aventura.Text = LstInicioDataReader.Item("NombreDelJuego").ToString
        Main.txt_Autor_De_La_Aventura.Text = LstInicioDataReader.Item("Autor").ToString
        '   Main.LIBRERIAS.Text = LstInicioDataReader.Item("LIBRERIAS").ToString
        Main.txt_Trama_de_la_historia.Text = LstInicioDataReader.Item("TramaDeLaHistoria").ToString
        Main.cbo_Genero.Text = LstInicioDataReader.Item("Genero").ToString
        Main.txt_Version.Text = LstInicioDataReader.Item("VersionJuego").ToString
        Main.txt_Año_Creación.Text = LstInicioDataReader.Item("AñoCreacion").ToString
        Main.txt_Descripción_De_La_Historia.Text = LstInicioDataReader.Item("DescripcionDeLaHistoria").ToString

        Main.lbl_RUTA_DEL_GRAFICO_INICIO.Text = LstInicioDataReader.Item("Gráfico").ToString
        Main.PictureBox_GRAFICO_INICIO.ImageLocation = LstInicioDataReader.Item("RutaDelGráfico").ToString
        If LstInicioDataReader.Item("RutaDelGráfico").ToString = "" Then
            Main.PictureBox_GRAFICO_INICIO.Image = Nothing
        End If



        Main.rbtn_DESCRIPCION_LOCALIDAD_ABREVIADA.Checked = LstInicioDataReader.Item("DescLocalAbrev")
        Main.rbtn_DESCRIPCION_LOCALIDAD_COMPLETA.Checked = LstInicioDataReader.Item("DescLocalCompleta")
        Main.chk_MARCADOR_DE_PUNTOS.Checked = LstInicioDataReader.Item("MarcadorPuntos")
        Main.chk_PREVENCION_DE_DESHACER.Checked = LstInicioDataReader.Item("PrevencionUndo")
        Main.chk_Banner_text.Checked = LstInicioDataReader.Item("Chk_BannerText")
        Main.rtxt_Banner_Text.Text = LstInicioDataReader.Item("Txt_BannerText").ToString
        Main.rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = LstInicioDataReader.Item("DescripcionJugador").ToString
        Main.cbo_Status_Line_Left_1.Text = LstInicioDataReader.Item("StatusLineLeft1").ToString
        Main.cbo_Status_Line_Left_2.Text = LstInicioDataReader.Item("StatusLineLeft2").ToString
        Main.cbo_Status_Line_Left_3.Text = LstInicioDataReader.Item("StatusLineLeft3").ToString
        Main.cbo_Status_Line_Right_1.Text = LstInicioDataReader.Item("StatusLineRight1").ToString
        Main.cbo_Status_Line_Right_2.Text = LstInicioDataReader.Item("StatusLineRight2").ToString
        Main.cbo_Status_Line_Right_3.Text = LstInicioDataReader.Item("StatusLineRight3").ToString

        'SOLUCION NO ELEGANTE PERO FUNCIONA PARA CARGAR LOS LISTBOX
        '=============================
        ' Cargar el LISTBOX de las LOCALIDADES

        Dim LstLOCALIDADESCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        Dim LstLOCALIDADESDataReaderLstbox As OleDb.OleDbDataReader = LstLOCALIDADESCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lst_LOCALIDADES.Items.Clear()
        While LstLOCALIDADESDataReaderLstbox.Read
            Main.lst_LOCALIDADES.Items.Add(LstLOCALIDADESDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While

        If LstLOCALIDADESDataReaderLstbox.HasRows = False Then
        Else
            Main.lst_LOCALIDADES.SelectedIndex = 0
        End If


        ' Cargar el LISTBOX de los OBJETOS

        Dim LstOBJETOSCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM OBJETOS", ODbConn)
        Dim LstOBJETOSDataReaderLstbox As OleDb.OleDbDataReader = LstOBJETOSCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lstbox_OBJETOS.Items.Clear()
        While LstOBJETOSDataReaderLstbox.Read
            Main.lstbox_OBJETOS.Items.Add(LstOBJETOSDataReaderLstbox.Item("Nombre").ToString)
        End While

        If LstOBJETOSDataReaderLstbox.HasRows = False Then
        Else
            Main.lstbox_OBJETOS.SelectedIndex = 0
        End If

        'Hace visibles los TABPAGES si hay objetos creados.
        If Main.lstbox_OBJETOS.Items.Count > 0 Then
            Main.Objetos_Acciones_Instead_I.Parent = Main.TabControl2
            Main.Objetos_Acciones_Instead_II.Parent = Main.TabControl2
        End If



        ' Cargar el LISTBOX de los PSIS

        Dim PSISCommandLstBox As New OleDb.OleDbCommand("SELECT * FROM PSIS", ODbConn)
        Dim PSISDataReaderLstbox As OleDb.OleDbDataReader = PSISCommandLstBox.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lst_PSIS.Items.Clear()
        While PSISDataReaderLstbox.Read
            Main.lst_PSIS.Items.Add(PSISDataReaderLstbox.Item("NombrePSI").ToString)
        End While

        If PSISDataReaderLstbox.HasRows = False Then
        Else
            Main.lst_PSIS.SelectedIndex = 0
        End If


        Main.TabControl1.Visible = True

        'OCULTAR O MOSTRAR LOS CONTROLES DE LA PESTAÑA LOCALIDAD, DEPENDIENDO SI HAY O NO ALGUNA LOCALIDAD EN LA LISTA
        If Main.lst_LOCALIDADES.Items.Count > 0 Then
            MostrarControlesLocalidades()
        Else
            OcultarControlesLocalidades()
        End If

        'OCULTAR O MOSTRAR LOS CONTROLES DE LA PESTAÑA OBJETOS, DEPENDIENDO SI HAY O NO ALGÚN OBJETO EN LA LISTA
        If Main.lstbox_OBJETOS.Items.Count > 0 Then
            MostrarControlesObjetos()
        Else
            OcultarControlesObjetos()
        End If

        'OCULTAR O MOSTRAR LOS CONTROLES DE LA PESTAÑA PSIS, DEPENDIENDO SI HAY O NO ALGÚN PSI EN LA LISTA
        If Main.lst_PSIS.Items.Count > 0 Then
            MostrarControlesPSIs()
        Else
            OcultarControlesPSIs()
        End If

sal:
        Main.NuevoFicheroJhiToolStripMenuItem.Visible = False
        Main.TabControl1.Visible = True
        CargarTreeViewRespuestasPredefinidas()
 
    End Sub
    Public Sub CargarLaBaseDeDatosDesdeListboxLocalidades()

        Main.txt_ID.Text = Main.lst_LOCALIDADES.SelectedIndex + 1
        Dim LocalidadSeleccionada As String
        LocalidadSeleccionada = Main.lst_LOCALIDADES.SelectedItem.ToString
        Main.txt_LOCALIDAD_NOMBRE.Text = LocalidadSeleccionada

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LstLocalidadesCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD =" & "'" & LocalidadSeleccionada & "'", ODbConn)
        Dim LstLocalidadesDataReader As OleDb.OleDbDataReader = LstLocalidadesCommand.ExecuteReader(CommandBehavior.CloseConnection)
        LstLocalidadesDataReader.Read()

        Main.txt_LOCALIDAD_NOMBRE.Text = LstLocalidadesDataReader.Item("NombreLocalidad").ToString
        Main.txt_LOCALIDADES_NOMBRE_IMPRESO.Text = LstLocalidadesDataReader.Item("NombreImpreso").ToString
        Main.chk_OSCURA.Checked = CType(LstLocalidadesDataReader.Item("Oscura"), Boolean)
        Main.chk_PUERTA.Checked = CType(LstLocalidadesDataReader.Item("puerta"), Boolean)
        Main.chk_PUERTA_NO_APERTURABLE.Checked = CType(LstLocalidadesDataReader.Item("No_Aperturable"), Boolean)
        Main.chk_PUERTA_CON_CERROJO.Checked = CType(LstLocalidadesDataReader.Item("Con_Cerrojo"), Boolean)
        Main.chk_PUERTA_ABIERTA.Checked = CType(LstLocalidadesDataReader.Item("Abierta"), Boolean)
        Main.chk_PUERTA_PUESTO_EL_CERROJO.Checked = CType(LstLocalidadesDataReader.Item("Puesto_El_Cerrojo"), Boolean)
        Main.lbl_RUTA_DEL_GRAFICO_LOCALIDAD.Text = LstLocalidadesDataReader.Item("Gráfico").ToString
        Main.PictureBox_GRAFICO_LOCALIDAD.ImageLocation = LstLocalidadesDataReader.Item("RutaDelGráfico").ToString
        If LstLocalidadesDataReader.Item("RutaDelGráfico").ToString = "" Then
            Main.PictureBox_GRAFICO_LOCALIDAD.Image = Nothing
        End If
        Main.txt_LOCALIDAD_DESCRIPCION_INICIAL.Text = LstLocalidadesDataReader.Item("Descripción_Inicial").ToString
        Main.txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text = LstLocalidadesDataReader.Item("Descripción_Una_Vez_Visitada").ToString

        If Main.chk_PUERTA.Checked = True Then
            Main.chk_OSCURA.Visible = False
            Main.chk_PUERTA_NO_APERTURABLE.Visible = True
            Main.chk_PUERTA_ABIERTA.Visible = True
            Main.chk_PUERTA_CON_CERROJO.Visible = True
            Main.chk_PUERTA_PUESTO_EL_CERROJO.Visible = True
        End If
        If Main.chk_PUERTA.Checked = False Then
            Main.chk_OSCURA.Visible = True
            Main.chk_PUERTA_NO_APERTURABLE.Visible = False
            Main.chk_PUERTA_ABIERTA.Visible = False
            Main.chk_PUERTA_CON_CERROJO.Visible = False
            Main.chk_PUERTA_PUESTO_EL_CERROJO.Visible = False
        End If


        'Cargar el combo NW
        If IsDBNull(LstLocalidadesDataReader.Item("NW")) = False Then
            Dim TempNW As Integer
            TempNW = LstLocalidadesDataReader.Item("NW")
            Dim NWCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempNW, ODbConn)
            Dim NWDataReader As OleDb.OleDbDataReader = NWCommand.ExecuteReader(CommandBehavior.CloseConnection)
            NWDataReader.Read()
            Main.cbo_NW.Text = NWDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            NWCommand.Dispose()
        Else
            Main.cbo_NW.Text = ""
        End If

        'Cargar el combo N
        If IsDBNull(LstLocalidadesDataReader.Item("N")) = False Then
            Dim TempN As Integer
            TempN = LstLocalidadesDataReader.Item("N")
            Dim NCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempN, ODbConn)
            Dim NDataReader As OleDb.OleDbDataReader = NCommand.ExecuteReader(CommandBehavior.CloseConnection)
            NDataReader.Read()
            Main.cbo_N.Text = NDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            NCommand.Dispose()
        Else
            Main.cbo_N.Text = ""
        End If

        'Cargar el combo NE
        If IsDBNull(LstLocalidadesDataReader.Item("NE")) = False Then
            Dim TempNE As Integer
            TempNE = LstLocalidadesDataReader.Item("NE")
            Dim NECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempNE, ODbConn)
            Dim NEDataReader As OleDb.OleDbDataReader = NECommand.ExecuteReader(CommandBehavior.CloseConnection)
            NEDataReader.Read()
            Main.cbo_NE.Text = NEDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            NECommand.Dispose()
        Else
            Main.cbo_NE.Text = ""
        End If

        'Cargar el combo W
        If IsDBNull(LstLocalidadesDataReader.Item("W")) = False Then
            Dim TempW As Integer
            TempW = LstLocalidadesDataReader.Item("W")
            Dim WCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempW, ODbConn)
            Dim WDataReader As OleDb.OleDbDataReader = WCommand.ExecuteReader(CommandBehavior.CloseConnection)
            WDataReader.Read()
            Main.cbo_W.Text = WDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            WCommand.Dispose()
        Else
            Main.cbo_W.Text = ""
        End If

        'Cargar el combo E
        If IsDBNull(LstLocalidadesDataReader.Item("E")) = False Then
            Dim TempE As Integer
            TempE = LstLocalidadesDataReader.Item("E")
            Dim ECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempE, ODbConn)
            Dim EDataReader As OleDb.OleDbDataReader = ECommand.ExecuteReader(CommandBehavior.CloseConnection)
            EDataReader.Read()
            Main.cbo_E.Text = EDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            ECommand.Dispose()
        Else
            Main.cbo_E.Text = ""
        End If

        'Cargar el combo SW
        If IsDBNull(LstLocalidadesDataReader.Item("SW")) = False Then
            Dim TempSW As Integer
            TempSW = LstLocalidadesDataReader.Item("SW")
            Dim SWCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempSW, ODbConn)
            Dim SWDataReader As OleDb.OleDbDataReader = SWCommand.ExecuteReader(CommandBehavior.CloseConnection)
            SWDataReader.Read()
            Main.cbo_SW.Text = SWDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            SWCommand.Dispose()
        Else
            Main.cbo_SW.Text = ""
        End If

        'Cargar el combo S
        If IsDBNull(LstLocalidadesDataReader.Item("S")) = False Then
            Dim TempS As Integer
            TempS = LstLocalidadesDataReader.Item("S")
            Dim SCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempS, ODbConn)
            Dim SDataReader As OleDb.OleDbDataReader = SCommand.ExecuteReader(CommandBehavior.CloseConnection)
            SDataReader.Read()
            Main.cbo_S.Text = SDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            SCommand.Dispose()
        Else
            Main.cbo_S.Text = ""
        End If

        'Cargar el combo SE
        If IsDBNull(LstLocalidadesDataReader.Item("SE")) = False Then
            Dim TempSE As Integer
            TempSE = LstLocalidadesDataReader.Item("SE")
            Dim SECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempSE, ODbConn)
            Dim SEDataReader As OleDb.OleDbDataReader = SECommand.ExecuteReader(CommandBehavior.CloseConnection)
            SEDataReader.Read()
            Main.cbo_SE.Text = SEDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            SECommand.Dispose()
        Else
            Main.cbo_SE.Text = ""
        End If

        'Cargar el combo SUBIR
        If IsDBNull(LstLocalidadesDataReader.Item("SUBIR")) = False Then
            Dim TempSUBIR As Integer
            TempSUBIR = LstLocalidadesDataReader.Item("SUBIR")
            Dim SUBIRCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempSUBIR, ODbConn)
            Dim SUBIRDataReader As OleDb.OleDbDataReader = SUBIRCommand.ExecuteReader(CommandBehavior.CloseConnection)
            SUBIRDataReader.Read()
            Main.cbo_SUBIR.Text = SUBIRDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            SUBIRCommand.Dispose()
        Else
            Main.cbo_SUBIR.Text = ""
        End If

        'Cargar el combo BAJAR
        If IsDBNull(LstLocalidadesDataReader.Item("BAJAR")) = False Then
            Dim TempBAJAR As Integer
            TempBAJAR = LstLocalidadesDataReader.Item("BAJAR")
            Dim BAJARCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempBAJAR, ODbConn)
            Dim BAJARDataReader As OleDb.OleDbDataReader = BAJARCommand.ExecuteReader(CommandBehavior.CloseConnection)
            BAJARDataReader.Read()
            Main.cbo_BAJAR.Text = BAJARDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            BAJARCommand.Dispose()
        Else
            Main.cbo_BAJAR.Text = ""
        End If

        'Cargar el combo ENTRAR
        If IsDBNull(LstLocalidadesDataReader.Item("ENTRAR")) = False Then
            Dim TempENTRAR As Integer
            TempENTRAR = LstLocalidadesDataReader.Item("ENTRAR")
            Dim ENTRARCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempENTRAR, ODbConn)
            Dim ENTRARDataReader As OleDb.OleDbDataReader = ENTRARCommand.ExecuteReader(CommandBehavior.CloseConnection)
            ENTRARDataReader.Read()
            Main.cbo_ENTRAR.Text = ENTRARDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            ENTRARCommand.Dispose()
        Else
            Main.cbo_ENTRAR.Text = ""
        End If

        'Cargar el combo SALIR
        If IsDBNull(LstLocalidadesDataReader.Item("SALIR")) = False Then
            Dim TempSALIR As Integer
            TempSALIR = LstLocalidadesDataReader.Item("SALIR")
            Dim SALIRCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE ID =" & TempSALIR, ODbConn)
            Dim SALIRDataReader As OleDb.OleDbDataReader = SALIRCommand.ExecuteReader(CommandBehavior.CloseConnection)
            SALIRDataReader.Read()
            Main.cbo_SALIR.Text = SALIRDataReader.Item("NombreLocalidad").ToString
            'LIBERAR MEMORIA
            SALIRCommand.Dispose()
        Else
            Main.cbo_SALIR.Text = ""
        End If


        'Cargar el instead NW
        Dim I_NW_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_NW_DataReader As OleDb.OleDbDataReader = I_NW_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_NW_DataReader.Read()
        If I_NW_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_NW.Text = I_NW_DataReader.Item("InsteadNW").ToString
        End If
        I_NW_Command.Dispose()


        'Cargar el instead N
        Dim I_N_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_N_DataReader As OleDb.OleDbDataReader = I_N_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_N_DataReader.Read()
        If I_N_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_N.Text = I_NW_DataReader.Item("InsteadN").ToString
        End If
        I_N_Command.Dispose()

        'Cargar el instead NE
        Dim I_NE_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_NE_DataReader As OleDb.OleDbDataReader = I_NE_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_NE_DataReader.Read()
        If I_NE_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_NE.Text = I_NW_DataReader.Item("InsteadNE").ToString
        End If
        I_NE_Command.Dispose()

        'Cargar el instead W
        Dim I_W_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_W_DataReader As OleDb.OleDbDataReader = I_W_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_W_DataReader.Read()
        If I_W_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_W.Text = I_W_DataReader.Item("InsteadW").ToString
        End If
        I_W_Command.Dispose()

        'Cargar el instead E
        Dim I_E_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_E_DataReader As OleDb.OleDbDataReader = I_E_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_E_DataReader.Read()
        If I_E_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_E.Text = I_NW_DataReader.Item("InsteadE").ToString
        End If
        I_E_Command.Dispose()


        'Cargar el instead SW
        Dim I_SW_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_SW_DataReader As OleDb.OleDbDataReader = I_SW_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_SW_DataReader.Read()
        If I_SW_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_SW.Text = I_NW_DataReader.Item("InsteadSW").ToString
        End If
        I_SW_Command.Dispose()

        'Cargar el instead S
        Dim I_S_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_S_DataReader As OleDb.OleDbDataReader = I_S_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_S_DataReader.Read()
        If I_S_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_S.Text = I_NW_DataReader.Item("InsteadS").ToString
        End If
        I_S_Command.Dispose()

        'Cargar el instead SE
        Dim I_SE_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_SE_DataReader As OleDb.OleDbDataReader = I_SE_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_SE_DataReader.Read()
        If I_SE_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_SE.Text = I_NW_DataReader.Item("InsteadSE").ToString
        End If
        I_SE_Command.Dispose()

        'Cargar el instead ENTRAR
        Dim I_ENTRAR_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_ENTRAR_DataReader As OleDb.OleDbDataReader = I_ENTRAR_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_ENTRAR_DataReader.Read()
        If I_ENTRAR_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_ENTRAR.Text = I_NW_DataReader.Item("InsteadEntrar").ToString
        End If
        I_ENTRAR_Command.Dispose()

        'Cargar el instead SALIR
        Dim I_SALIR_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_SALIR_DataReader As OleDb.OleDbDataReader = I_SALIR_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_SALIR_DataReader.Read()
        If I_SALIR_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_SALIR.Text = I_NW_DataReader.Item("InsteadSalir").ToString
        End If
        I_SALIR_Command.Dispose()

        'Cargar el instead SUBIR
        Dim I_SUBIR_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_SUBIR_DataReader As OleDb.OleDbDataReader = I_SUBIR_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_SUBIR_DataReader.Read()
        If I_SUBIR_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_SUBIR.Text = I_NW_DataReader.Item("InsteadSubir").ToString
        End If
        I_SUBIR_Command.Dispose()

        'Cargar el instead BAJAR
        Dim I_BAJAR_Command As New OleDbCommand("SELECT * FROM LOCALIDADES WHERE nombrelocalidad = " & "'" & Main.txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim I_BAJAR_DataReader As OleDb.OleDbDataReader = I_BAJAR_Command.ExecuteReader(CommandBehavior.CloseConnection)
        I_BAJAR_DataReader.Read()
        If I_BAJAR_DataReader.HasRows = True Then
            InsteadLocalidades.txt_INSTEAD_LOCALIDAD_BAJAR.Text = I_NW_DataReader.Item("InsteadBajar").ToString
        End If
        I_BAJAR_Command.Dispose()

        ODbConn.Close()
    End Sub
    Public Sub CargarLaBaseDeDatosDesdeListboxObjetos()

        Main.txt_ID_OBJETO.Text = Main.lstbox_OBJETOS.SelectedIndex + 1
        Dim ObjetoSeleccionado As String
        ObjetoSeleccionado = Main.lstbox_OBJETOS.SelectedItem.ToString
        Main.txt_Nombre_Objeto.Text = ObjetoSeleccionado

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()


        Dim LstObjetosCommand As New OleDb.OleDbCommand("SELECT * FROM OBJETOS WHERE NOMBRE =" & "'" & ObjetoSeleccionado & "'", ODbConn)
        Dim LstObjetosDataReader As OleDb.OleDbDataReader = LstObjetosCommand.ExecuteReader(CommandBehavior.CloseConnection)
        LstObjetosDataReader.Read()


        ' If LstObjetosDataReader.HasRows = False Then GoTo sal
        ' If IsDBNull(LstObjetosDataReader.Item("Nombre")) = False Then

        '=============================
        ' Cargar los campos de TEXTO de los OBJETOS - PROPIEDADES
        Main.txt_Nombre_Objeto.Text = LstObjetosDataReader.Item("Nombre").ToString
        Main.cbo_ARTICULO.Text = LstObjetosDataReader.Item("Articulo").ToString
        Main.txt_Nombre_Impreso_Objeto.Text = LstObjetosDataReader.Item("NombreImpreso").ToString
        Main.txt_Objeto_Apariencia_Inicial.Text = LstObjetosDataReader.Item("AparienciaInicial").ToString
        Main.txt_Objeto_Descripción_Inicial.Text = LstObjetosDataReader.Item("DescripcionInicial").ToString
        Main.txt_Objeto_Apariencia_Una_Vez_Examinado.Text = LstObjetosDataReader.Item("DescripcionUnaVezExaminado").ToString
        Main.cbo_LOCALIZACION_OBJETO.Text = LstObjetosDataReader.Item("LocalizacionObjeto").ToString
        Main.chk_Objeto_Femenino.Checked = CType(LstObjetosDataReader.Item("Femenino"), Boolean)

        Main.lbl_RUTA_DEL_GRAFICO_OBJETOS.Text = LstObjetosDataReader.Item("GráficoObjeto").ToString
        Main.PictureBox_GRAFICO_OBJETOS.ImageLocation = LstObjetosDataReader.Item("RutaGráficoObjeto").ToString
        If LstObjetosDataReader.Item("RutaGráficoObjeto").ToString = "" Then
            Main.PictureBox_GRAFICO_OBJETOS.Image = Nothing
        End If
        ' CARGAR EL LISTBOX DE SINONIMOS DE OBJETOS
        Dim SinonimosCommand As New OleDb.OleDbCommand("SELECT * FROM SINONIMOS_OBJETOS WHERE SINONIMOS_OBJETOS.objeto= " & "'" & Main.txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim SinonimosDataReader As OleDb.OleDbDataReader = SinonimosCommand.ExecuteReader(CommandBehavior.CloseConnection)

        Sinónimos.lsb_SINONIMOS_Objetos.Items.Clear()
        While SinonimosDataReader.Read
            Sinónimos.lsb_SINONIMOS_Objetos.Items.Add(SinonimosDataReader.Item("sinonimo").ToString)
        End While
        'FIN
        Main.chk_Objeto_Llevada_Al_Inicio.Checked = CType(LstObjetosDataReader.Item("LlevadoAlInicio"), Boolean)
        Main.chk_Objeto_Llave.Checked = CType(LstObjetosDataReader.Item("Llave"), Boolean)
        Main.cbo_PUERTA_CON_LLAVE.Text = LstObjetosDataReader.Item("Puerta").ToString
        Main.chk_Objeto_Contenedor.Checked = CType(LstObjetosDataReader.Item("Contenedor"), Boolean)
        Main.chk_Objeto_Aperturable.Checked = CType(LstObjetosDataReader.Item("Aperturable"), Boolean)
        Main.chk_Objeto_Cerrado.Checked = CType(LstObjetosDataReader.Item("Cerrado"), Boolean)
        Main.chk_Objeto_Cerrado_Con_llave.Checked = CType(LstObjetosDataReader.Item("CerradoConLlave"), Boolean)
        Main.chk_Objeto_Capacidad_De_Carga.Checked = CType(LstObjetosDataReader.Item("CapacidadDeCarga"), Boolean)
        Main.txt_Objeto_Capacidad_De_Carga.Text = LstObjetosDataReader.Item("NumeroCapacidadDeCarga").ToString
        Main.chk_Objeto_Transparente.Checked = CType(LstObjetosDataReader.Item("Transparente"), Boolean)
        Main.chk_Objeto_Luminoso.Checked = CType(LstObjetosDataReader.Item("Luminoso"), Boolean)
        Main.chk_Objeto_Interruptor_ON.Checked = CType(LstObjetosDataReader.Item("InterruptorON"), Boolean)
        Main.chk_Objeto_Interruptor_OFF.Checked = CType(LstObjetosDataReader.Item("InterruptorOFF"), Boolean)
        Main.chk_Objeto_Ubicuo.Checked = CType(LstObjetosDataReader.Item("Ubicuo"), Boolean)
        Main.chk_Objeto_En_Todas_Partes.Checked = CType(LstObjetosDataReader.Item("EnTodasPartes"), Boolean)
        Main.chk_Objeto_Comestible.Checked = CType(LstObjetosDataReader.Item("Comestible"), Boolean)
        Main.chk_Objeto_Entrable.Checked = CType(LstObjetosDataReader.Item("Entrable"), Boolean)
        Main.chk_Objeto_Llevable_Puesto.Checked = CType(LstObjetosDataReader.Item("LlevablePuesto"), Boolean)
        Main.chk_Objeto_Escenario.Checked = CType(LstObjetosDataReader.Item("Escenario"), Boolean)
        Main.chk_Objeto_Empujable.Checked = CType(LstObjetosDataReader.Item("Empujable"), Boolean)
        Main.chk_Objeto_Fijo_En_El_Sitio.Checked = CType(LstObjetosDataReader.Item("FijoEnUnSitio"), Boolean)
        Main.chk_Objeto_Portable.Checked = CType(LstObjetosDataReader.Item("Portable"), Boolean)
        Main.chk_Objeto_Cogido.Checked = CType(LstObjetosDataReader.Item("Cogido"), Boolean)

        ' Cargar los campos de TEXTO de los OBJETOS - INSTEAD


        Main.txt_Objeto_Instead_Taking.Text = LstObjetosDataReader.Item("Objeto_Instead_Coger").ToString
        Main.txt_Objeto_Instead_Droping.Text = LstObjetosDataReader.Item("Objeto_Instead_Dejar").ToString
        Main.txt_Objeto_Instead_Eating.Text = LstObjetosDataReader.Item("Objeto_Instead_Comer").ToString
        Main.txt_Objeto_Instead_Drinking.Text = LstObjetosDataReader.Item("Objeto_Instead_Beber").ToString
        Main.txt_Objeto_Instead_Looking_Under.Text = LstObjetosDataReader.Item("Objeto_Instead_Mirar_Debajo").ToString
        Main.txt_Objeto_Instead_Searching.Text = LstObjetosDataReader.Item("Objeto_Instead_Buscar").ToString
        Main.txt_Objeto_Instead_Switching_On.Text = LstObjetosDataReader.Item("Objeto_Instead_Encender").ToString
        Main.txt_Objeto_Instead_Switching_Off.Text = LstObjetosDataReader.Item("Objeto_Instead_Apagar").ToString
        Main.txt_Objeto_Instead_Opening.Text = LstObjetosDataReader.Item("Objeto_Instead_Abrir").ToString
        Main.txt_Objeto_Instead_Closing.Text = LstObjetosDataReader.Item("Objeto_Instead_Cerrar").ToString
        Main.txt_Objeto_Instead_Wearing.Text = LstObjetosDataReader.Item("Objeto_Instead_Llevar_Puesto").ToString
        Main.txt_Objeto_Instead_Taking_Off.Text = LstObjetosDataReader.Item("Objeto_Instead_Quitarte").ToString
        Main.txt_Objeto_Instead_Attacking.Text = LstObjetosDataReader.Item("Objeto_Instead_Romper").ToString
        Main.txt_Objeto_Instead_Kissing.Text = LstObjetosDataReader.Item("Objeto_Instead_Besar").ToString
        Main.txt_Objeto_Instead_Touching.Text = LstObjetosDataReader.Item("Objeto_Instead_Tocar").ToString
        Main.txt_Objeto_Instead_Waving.Text = LstObjetosDataReader.Item("Objeto_Instead_Agitar").ToString
        Main.txt_Objeto_Instead_Pulling.Text = LstObjetosDataReader.Item("Objeto_Instead_Tirar_de").ToString
        Main.txt_Objeto_Instead_Pushing.Text = LstObjetosDataReader.Item("Objeto_Instead_Empujar").ToString
        Main.txt_Objeto_Instead_Turning.Text = LstObjetosDataReader.Item("Objeto_Instead_Girar").ToString
        Main.txt_Objeto_Instead_Squeezing.Text = LstObjetosDataReader.Item("Objeto_Instead_Retorcer").ToString
        Main.txt_Objeto_Instead_Burning.Text = LstObjetosDataReader.Item("Objeto_Instead_Quemar").ToString
        Main.txt_Objeto_Instead_Smelling.Text = LstObjetosDataReader.Item("Objeto_Instead_Oler").ToString
        Main.txt_Objeto_Instead_Tasting.Text = LstObjetosDataReader.Item("Objeto_Instead_Saborear").ToString
        Main.txt_Objeto_Instead_Buying.Text = LstObjetosDataReader.Item("Objeto_Instead_Comprar").ToString
        Main.txt_Objeto_Instead_Listening.Text = LstObjetosDataReader.Item("Objeto_Instead_Escuchar").ToString

        ODbConn.Close()

        'SOLUCION NO ELEGANTE PERO FUNCIONA PARA CARGAR EL LISTBOX
        ODbConn.Open()

        Dim LstObjetosCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM OBJETOS", ODbConn) ' WHERE ID =" & varNombreLoc, ODbConn)
        Dim LstObjetosDataReaderLstbox As OleDb.OleDbDataReader = LstObjetosCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        '=============================
        ' Cargar el LISTBOX de los OBJETOS

        'Main.lstbox_OBJETOS.Items.Clear()
        'While LstObjetosDataReaderLstbox.Read
        '    Main.lstbox_OBJETOS.Items.Add(LstObjetosDataReaderLstbox.Item("Nombre").ToString)
        'End While
        ODbConn.Close()


    End Sub
    Public Sub CargarLaBaseDeDatosDesdeListboxPSIS()
        Main.txt_ID_PSI.Text = Main.lst_PSIS.SelectedIndex + 1
        Dim PSISeleccionado As String
        PSISeleccionado = Main.lst_PSIS.SelectedItem.ToString
        Main.txt_Nombre_PSI.Text = PSISeleccionado
        SinonimosPSIs.txt_SINONIMOS_PSIS.Text = PSISeleccionado
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()


        Dim PSICommand As New OleDb.OleDbCommand("SELECT * FROM PSIS WHERE nombrepsi =" & "'" & PSISeleccionado & "'", ODbConn)
        Dim PSIDataReader As OleDb.OleDbDataReader = PSICommand.ExecuteReader(CommandBehavior.CloseConnection)
        PSIDataReader.Read()

        Main.txt_Nombre_PSI.Text = PSIDataReader.Item("NombrePSI").ToString

        'Seleccionar el tipo de PSI
        Dim TIPOPSI As String
        TIPOPSI = PSIDataReader.Item("TipoPSI").ToString

        Select Case TIPOPSI
            Case "Hombre"
                Main.rbt_Hombre.Checked = True
            Case "Mujer"
                Main.rbt_Mujer.Checked = True
            Case "Animal"
                Main.rbt_Animal.Checked = True
        End Select

        'Seleccionar RESTO DE PROPIEDADES DEL PSI
        Main.cbo_LOCALIZACION_PSI.Text = PSIDataReader.Item("LocalizacionPsi").ToString
        Main.txt_PSI_NOMBRE_IMPRESO.Text = PSIDataReader.Item("NombreImpresoPSI").ToString
        Main.txt_PSI_APARIENCIA_INICIAL.Text = PSIDataReader.Item("AparienciaInicialPSI").ToString
        Main.txt_PSI_DESCRIPCION_INICIAL.Text = PSIDataReader.Item("DescripcionInicialPSI").ToString
        Main.txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text = PSIDataReader.Item("DescripcionPSIunavezexaminado").ToString
        Main.lbl_RUTA_DEL_GRAFICO_PSIs.Text = PSIDataReader.Item("GraficoPSI").ToString

        'CONTROL GRAFICOS DEL PSI - CGPSI
        Main.PictureBox_GRAFICO_PSIS.ImageLocation = PSIDataReader.Item("RutaGraficoPSI").ToString
        Main.PictureBoxPSIS_RESPUESTAS_ALEATORIAS.ImageLocation = PSIDataReader.Item("RutaGraficoPSI").ToString
        Main.pbox_PSI_TOPICOS_Y_RESPUESTAS.ImageLocation = PSIDataReader.Item("RutaGraficoPSI").ToString
        AñadirTopicosYRespuestas.pbox_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.ImageLocation = PSIDataReader.Item("RutaGraficoPSI").ToString
        '------------------

        ' CARGAR EL LISTBOX DE SINONIMOS DE PSIS
        Dim SinonimosCommand As New OleDb.OleDbCommand("SELECT * FROM SINONIMOS_PSI WHERE SINONIMOS_PSI.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
        Dim SinonimosDataReader As OleDb.OleDbDataReader = SinonimosCommand.ExecuteReader(CommandBehavior.CloseConnection)

        SinonimosPSIs.lsb_SINONIMOS_PSIS.Items.Clear()
        While SinonimosDataReader.Read
            SinonimosPSIs.lsb_SINONIMOS_PSIS.Items.Add(SinonimosDataReader.Item("sinonimo").ToString)
        End While
        'FIN

        ' CARGAR EL LISTBOX DE TOPICOS TABULADOS DE LOS PSIS
        Dim TopicosCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_TOPICOS_TABULADOS WHERE PSIS_TOPICOS_TABULADOS.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
        Dim TopicosDataReader As OleDb.OleDbDataReader = TopicosCommand.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lsb_PSIS_TOPICO.Items.Clear()
        Main.lsb_PSIS_RESPUESTA.Items.Clear()
        While TopicosDataReader.Read
            Main.lsb_PSIS_TOPICO.Items.Add(TopicosDataReader.Item("topico").ToString)
            Main.lsb_PSIS_RESPUESTA.Items.Add(TopicosDataReader.Item("respuesta").ToString)
        End While
        'FIN


        ' CARGAR EL LISTBOX DE PRE-RESPUESTAS ALEATORIAS DE LOS PSIS
        Dim PreRespuestasCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_PRE_RESPUESTAS_ALEATORIAS WHERE PSIS_PRE_RESPUESTAS_ALEATORIAS.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
        Dim PreRespuestasDataReader As OleDb.OleDbDataReader = PreRespuestasCommand.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Clear()
        While PreRespuestasDataReader.Read
            Main.lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Add(PreRespuestasDataReader.Item("PreRespuestaAleatoria").ToString)
        End While
        'FIN

        ' CARGAR EL LISTBOX DE RESPUESTAS ALEATORIAS DE LOS PSIS
        Dim RespuestasCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_RESPUESTAS_ALEATORIAS WHERE PSIS_RESPUESTAS_ALEATORIAS.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
        Dim RespuestasDataReader As OleDb.OleDbDataReader = RespuestasCommand.ExecuteReader(CommandBehavior.CloseConnection)

        Main.lsb_RESPUESTAS_ALEATORIAS.Items.Clear()
        While RespuestasDataReader.Read
            Main.lsb_RESPUESTAS_ALEATORIAS.Items.Add(RespuestasDataReader.Item("RespuestaAleatoria").ToString)
        End While
        'FIN

        If PSIDataReader.Item("RutaGraficoPSI").ToString = "" Then
            'CONTROL GRAFICOS DEL PSI - CGPSI
            Main.PictureBox_GRAFICO_PSIS.Image = Nothing
            Main.PictureBoxPSIS_RESPUESTAS_ALEATORIAS.Image = Nothing
            Main.pbox_PSI_TOPICOS_Y_RESPUESTAS.Image = Nothing
            AñadirTopicosYRespuestas.pbox_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.Image = Nothing
            '----------------------------------------------
        End If

        PSICommand.Dispose()
        ODbConn.Close()
    End Sub
End Module

